home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_227_Add tax.bin < prev    next >
Text File  |  1995-11-23  |  1KB  |  57 lines
  1. ItemType: WIND
  2. Rect: 399,273,579,393
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Add tax
  8. Params: i0_TopLeft┬i3_Text
  9. Result: i7_Text
  10.  
  11. ItemType: PUSH
  12. Rect: 107,87,163,104
  13. TextFont: Geneva
  14. TextSize: 10
  15. AutoSize: FALSE
  16. Name: OK
  17. DefaultItem: TRUE
  18. Script: get wsGet(wdID,"net","Text")┬if it=empty then put 0 into it┬put stripit(it) into net┬get wsGet(wdID,"tax","Text")┬if it=empty then put 0 into it┬put stripit(it) into tax┬set numberformat to "0.00"┬put tax+net into temp┬wsSet "Add tax","gross","Text",placeSign(temp)┬wsSend wdID,"0","Close"┬
  19.  
  20. ItemType: PUSH
  21. Rect: 26,87,86,104
  22. TextFont: Geneva
  23. TextSize: 10
  24. AutoSize: FALSE
  25. Name: Cancel
  26. CancelItem: TRUE
  27. AutoClose: TRUE
  28.  
  29. ItemType: TEXT
  30. Rect: 57,8,146,26
  31. TextFont: Geneva
  32. TextSize: 12
  33. AutoSize: FALSE
  34. Name: net
  35.  
  36. ItemType: LBL
  37. Rect: 24,7,55,23
  38. Text: Net:
  39.  
  40. ItemType: LBL
  41. Rect: 25,41,55,57
  42. Text: Tax:
  43.  
  44. ItemType: TEXT
  45. Rect: 57,39,148,61
  46. TextFont: Geneva
  47. AutoSize: FALSE
  48. Name: tax
  49. LockText: FALSE
  50.  
  51. ItemType: TEXT
  52. Rect: 56,76,145,94
  53. TextFont: Geneva
  54. TextSize: 12
  55. AutoSize: FALSE
  56. Visible: FALSE
  57. Name: gross